object FrmDM: TFrmDM
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Height = 280
  Width = 267
  object conDM: TFDConnection
    Params.Strings = (
      'LockingMode=Normal'
      'JournalMode=WAL'
      
        'Database=e:\Documents\Embarcadero\Studio\Projects\sign\Android\D' +
        'ebug\Sign\assets\internal\Sign.db'
      'DriverID=SQLite')
    FormatOptions.AssignedValues = [fvDefaultParamDataType]
    FormatOptions.DefaultParamDataType = ftDateTime
    UpdateOptions.AssignedValues = [uvLockWait]
    UpdateOptions.LockWait = True
    LoginPrompt = False
    BeforeConnect = conDMBeforeConnect
    Left = 16
    Top = 16
  end
  object fdphysqltdrvrlnkDM: TFDPhysSQLiteDriverLink
    Left = 96
    Top = 16
  end
  object fdqryDM: TFDQuery
    OnCalcFields = fdqryDMCalcFields
    DetailFields = 'SignDate;QuitDate'
    Connection = conDM
    SQL.Strings = (
      
        'Select ID,signdate,quitdate from [signtable] order by signdate d' +
        'esc,ID desc')
    Left = 168
    Top = 16
    object intgrfldDMID: TIntegerField
      FieldName = 'ID'
      KeyFields = 'ID'
      Origin = 'ID'
      Required = True
    end
    object dtmfldDMSignDate: TDateTimeField
      FieldName = 'SignDate'
      Origin = 'SignDate'
    end
    object dtmfldDMQuitDate: TDateTimeField
      FieldName = 'QuitDate'
      Origin = 'QuitDate'
    end
    object strngfldDMPeriod: TStringField
      DisplayWidth = 1000
      FieldKind = fkInternalCalc
      FieldName = 'Period'
      Size = 120
    end
    object strngfldDMDuration: TStringField
      DisplayWidth = 100
      FieldKind = fkCalculated
      FieldName = 'Duration'
      Size = 120
      Calculated = True
    end
    object strngfldDMSignDay: TStringField
      DisplayWidth = 100
      FieldKind = fkCalculated
      FieldName = 'SignDay'
      Size = 100
      Calculated = True
    end
  end
  object fdgxwtcrsrDM: TFDGUIxWaitCursor
    Provider = 'FMX'
    Left = 16
    Top = 80
  end
  object fdqrySrch: TFDQuery
    Connection = conDM
    SQL.Strings = (
      'insert into [signtable] (signdate) values(:signdate)')
    Left = 120
    Top = 128
    ParamData = <
      item
        Name = 'SIGNDATE'
        DataType = ftDateTime
        ParamType = ptInput
        Value = Null
      end>
  end
end
